home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr37 / vndnfo1a.zip / EXTRREGL.BAT < prev    next >
DOS Batch File  |  1995-03-12  |  5KB  |  96 lines
  1. goto start
  2. :usage
  3. echo off
  4. cls
  5. echo ╔═════════════════════════════════════════════════════════════╗ 
  6. echo ║    extrregl.bat -- extract information about one            ║
  7. echo ║                    (originally, regional, but now not       ║
  8. echo ║                    so limited) distributor from VENDINFO    ║
  9. echo ║                    record, writing result to out_file       ║
  10. echo ║                                                             ║
  11. echo ║    usage:                                                   ║
  12. echo ║           extrregl filename number out_file                 ║
  13. echo ║    where:                                                   ║
  14. echo ║           filename = pathname of VENDINFO file              ║
  15. echo ║                                                             ║
  16. echo ║           number   = distributor number (1, 2, ...)         ║
  17. echo ║                                                             ║
  18. echo ║           out_file = pathname of output file                ║
  19. echo ║                                                             ║
  20. echo ║    example:                                                 ║
  21. echo ║           extrregl incxt11.pkg 1 sample.prn                 ║
  22. echo ║                                                             ║
  23. echo ║ Copyright 1993-94 Rams' Island Software All Rights Reserved ║
  24. echo ║   Rams' Island Software, 7644 Lakecliff, Parker CO 80134    ║
  25. echo ╚═════════════════════════════════════════════════════════════╝
  26. goto exit
  27.  
  28. :start
  29. rem ----- test for presence of required arguments -------------------
  30. if %1.==. goto usage
  31. if %2.==. goto usage
  32. if %3.==. goto usage
  33.  
  34. vendprcs %1 -er%2a -na
  35. if errorlevel 51 goto exit
  36. vendprcs                 -y " "                               >> %3
  37. vendprcs                 -y "      Distributor:"              >> %3
  38. vendprcs %1 -xr%2r       -y "                    Area: @" -na >> %3
  39. vendprcs %1 -xr%2a -zi26 -y "            Name/Address: @" -na >> %3
  40. vendprcs %1 -xr%2t       -y "         Toll-free Phone: @" -na >> %3
  41. vendprcs %1 -xr%2p       -y "             Voice Phone: @" -na >> %3
  42. vendprcs %1 -xr%2f       -y "               FAX Phone: @" -na >> %3
  43. vendprcs %1 -xr%2ms      -y "                 Support: @" -na >> %3
  44. vendprcs %1 -xr%2mo      -y "            Sole Support: @" -na >> %3
  45. vendprcs %1 -xr%2md      -y "              Other Dist: @" -na >> %3
  46. vendprcs %1 -xr%2mj      -y "                   Press: @" -na >> %3
  47. vendprcs %1 -xr%2ma      -y "            Author Ships: @" -na >> %3
  48. vendprcs %1 -xr%2mc      -y "           Enable Credit: @" -na >> %3
  49. vendprcs %1 -xr%2mp      -y "           Enable Prices: @" -na >> %3
  50. vendprcs %1 -er%2mc
  51. if errorlevel 51 goto nocredit
  52. vendprcs %1 -zn -y "            Credit Cards: "  -na >> %3
  53. vendprcs %1 -xr%2ce -zn -zt "Access/Euro "       -na >> %3
  54. vendprcs %1 -xr%2ca -zn -zt "Amex "              -na >> %3
  55. vendprcs %1 -xr%2cc -zn -zt "Diner's "           -na >> %3
  56. vendprcs %1 -xr%2cd -zn -zt "Discover "          -na >> %3
  57. vendprcs %1 -xr%2cm -zn -zt "MasterCard "        -na >> %3
  58. vendprcs %1 -xr%2cv -zn -zt "VISA "              -na >> %3
  59. vendprcs %1          -y " "                           -na >> %3
  60. vendprcs %1 -xr%2xms -y "         Pay: In-Ctry MO: @" -na >> %3
  61. vendprcs %1 -xr%2xmi -y "         Pay: Internl MO: @" -na >> %3
  62. vendprcs %1 -xr%2xps -y "         Pay: CkPersSame: @" -na >> %3
  63. vendprcs %1 -xr%2xph -y "         Pay: CkPrsHrdSn: @" -na >> %3
  64. vendprcs %1 -xr%2xpr -y "         Pay: CkPrsHrdRe: @" -na >> %3
  65. vendprcs %1 -xr%2xpo -y "         Pay: CkPrsOther: @" -na >> %3
  66. vendprcs %1 -xr%2xbs -y "         Pay: CkBankSame: @" -na >> %3
  67. vendprcs %1 -xr%2xbh -y "         Pay: CkBnkHrdSn: @" -na >> %3
  68. vendprcs %1 -xr%2xbr -y "         Pay: CkBnkHrdRe: @" -na >> %3
  69. vendprcs %1 -xr%2xbo -y "         Pay: CkBnkOther: @" -na >> %3
  70. vendprcs %1 -xr%2xcs -y "         Pay:   CashSame: @" -na >> %3
  71. vendprcs %1 -xr%2xch -y "         Pay:   CashHard: @" -na >> %3
  72. vendprcs %1 -xr%2xco -y "         Pay:  CashOther: @" -na >> %3
  73. vendprcs %1 -xr%2xts -y "         Pay: TravCkSame: @" -na >> %3
  74. vendprcs %1 -xr%2xto -y "         Pay: TrvCkOther: @" -na >> %3
  75. vendprcs %1 -xr%2xa  -y "         Pay:     AmexMO: @" -na >> %3
  76. vendprcs %1 -xr%2xe  -y "         Pay: EuroCheque: @" -na >> %3
  77. vendprcs %1 -xr%2xd  -y "         Pay: DirectBank: @" -na >> %3
  78. vendprcs %1 -xr%2xon -y "         Pay:   PONumber: @" -na >> %3
  79. vendprcs %1 -xr%2xoh -y "         Pay:   POHrdcpy: @" -na >> %3
  80. :nocredit
  81. vendprcs %1 -er%2mp
  82. if errorlevel 51 goto exit
  83. vendprcs %1 -xr%2c  -y "         Prices Currency: @" -na >> %3
  84. vendprcs %1 -xr%2i1 -y "           Minimum Price: @" -na >> %3
  85. vendprcs %1 -xr%2i2 -y "           Maximum Price: @" -na >> %3
  86. vendprcs            -y "        Shipping and Handlg"           >> %3
  87. vendprcs %1 -xr%2sc -y "            Same Country: @" -na >> %3
  88. vendprcs %1 -xr%2sn -y "           North America: @" -na >> %3
  89. vendprcs %1 -xr%2ss -y "           South America: @" -na >> %3
  90. vendprcs %1 -xr%2se -y "                  Europe: @" -na >> %3
  91. vendprcs %1 -xr%2sa -y "                    Asia: @" -na >> %3
  92. vendprcs %1 -xr%2sf -y "                  Africe: @" -na >> %3
  93. vendprcs %1 -xr%2sp -y "             Pacific Rim: @" -na >> %3
  94.  
  95. :exit
  96.